home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 July: Mac OS SDK / Dev.CD Jul 99 SDK1.toast / Development Kits / Mac OS / ColorSync 2.6 Mac SDK / Interfaces / CMCalibrator.p < prev    next >
Encoding:
Text File  |  1999-05-07  |  5.1 KB  |  194 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        CMCalibrator.p
  3.  
  4.      Contains:    ColorSync Calibration API
  5.  
  6.      Version:    Technology:    ColorSync 2.5
  7.                  Release:    ColorSync 2.6 SDK for use with Universal Interfaces 3.1
  8.  
  9.      Copyright:    © 1998 by Apple Computer, Inc., all rights reserved.
  10.  
  11.      Bugs?:        For bug reports, consult the following page on
  12.                  the World Wide Web:
  13.  
  14.                      http://developer.apple.com/bugreporter/
  15.  
  16. }
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT CMCalibrator;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __CMCALIBRATOR__}
  27. {$SETC __CMCALIBRATOR__ := 1}
  28.  
  29. {$I+}
  30. {$SETC CMCalibratorIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33. {$IFC UNDEFINED __CMAPPLICATION__}
  34. {$I CMApplication.p}
  35. {$ENDC}
  36. {$IFC UNDEFINED __DISPLAYS__}
  37. {$I Displays.p}
  38. {$ENDC}
  39. {$IFC UNDEFINED __ERRORS__}
  40. {$I Errors.p}
  41. {$ENDC}
  42.  
  43.  
  44. {$PUSH}
  45. {$ALIGN MAC68K}
  46. {$LibExport+}
  47.  
  48.  
  49. TYPE
  50. {$IFC TYPED_FUNCTION_POINTERS}
  51.     CalibrateEventProcPtr = PROCEDURE(VAR event: EventRecord);
  52. {$ELSEC}
  53.     CalibrateEventProcPtr = ProcPtr;
  54. {$ENDC}
  55.  
  56.     CalibrateEventUPP = UniversalProcPtr;
  57.  
  58. {  Interface for new ColorSync monitor calibrators (ColorSync 2.6 and greater)  }
  59.  
  60.  
  61. CONST
  62.     kCalibratorNamePrefix        = 'cali';
  63.  
  64.  
  65. TYPE
  66.     CalibratorInfoPtr = ^CalibratorInfo;
  67.     CalibratorInfo = RECORD
  68.         dataSize:                UInt32;                                    {  Size of this structure - compatibility  }
  69.         displayID:                AVIDType;                                {  Contains an hDC on Win32  }
  70.         profileLocationSize:    UInt32;                                    {  Max size for returned profile location  }
  71.         profileLocationPtr:        CMProfileLocationPtr;                    {  For returning the profile  }
  72.         eventProc:                CalibrateEventUPP;                        {  Ignored on Win32  }
  73.         isGood:                    BOOLEAN;                                {  true or false  }
  74.     END;
  75.  
  76. {$IFC TYPED_FUNCTION_POINTERS}
  77.     CanCalibrateProcPtr = FUNCTION(displayID: AVIDType; VAR errMessage: Str255): BOOLEAN;
  78. {$ELSEC}
  79.     CanCalibrateProcPtr = ProcPtr;
  80. {$ENDC}
  81.  
  82. {$IFC TYPED_FUNCTION_POINTERS}
  83.     CalibrateProcPtr = FUNCTION(VAR theInfo: CalibratorInfo): OSErr;
  84. {$ELSEC}
  85.     CalibrateProcPtr = ProcPtr;
  86. {$ENDC}
  87.  
  88.     CanCalibrateUPP = UniversalProcPtr;
  89.     CalibrateUPP = UniversalProcPtr;
  90.  
  91. CONST
  92.     uppCalibrateEventProcInfo = $000000C0;
  93.     uppCanCalibrateProcInfo = $000003D0;
  94.     uppCalibrateProcInfo = $000000E0;
  95.  
  96. FUNCTION NewCalibrateEventProc(userRoutine: CalibrateEventProcPtr): CalibrateEventUPP;
  97.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  98.     INLINE $2E9F;
  99.     {$ENDC}
  100.  
  101. FUNCTION NewCanCalibrateProc(userRoutine: CanCalibrateProcPtr): CanCalibrateUPP;
  102.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  103.     INLINE $2E9F;
  104.     {$ENDC}
  105.  
  106. FUNCTION NewCalibrateProc(userRoutine: CalibrateProcPtr): CalibrateUPP;
  107.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  108.     INLINE $2E9F;
  109.     {$ENDC}
  110.  
  111. PROCEDURE CallCalibrateEventProc(VAR event: EventRecord; userRoutine: CalibrateEventUPP);
  112.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  113.     INLINE $205F, $4E90;
  114.     {$ENDC}
  115.  
  116. FUNCTION CallCanCalibrateProc(displayID: AVIDType; VAR errMessage: Str255; userRoutine: CanCalibrateUPP): BOOLEAN;
  117.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  118.     INLINE $205F, $4E90;
  119.     {$ENDC}
  120.  
  121. FUNCTION CallCalibrateProc(VAR theInfo: CalibratorInfo; userRoutine: CalibrateUPP): OSErr;
  122.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  123.     INLINE $205F, $4E90;
  124.     {$ENDC}
  125. {$IFC OLDROUTINENAMES }
  126. {  Interface for original ColorSync monitor calibrators (ColorSync 2.5.x)  }
  127.  
  128. CONST
  129.     kOldCalibratorNamePrefix    = 'Cali';
  130.  
  131.  
  132. TYPE
  133.     OldCalibratorInfoPtr = ^OldCalibratorInfo;
  134.     OldCalibratorInfo = RECORD
  135.         displayID:                AVIDType;                                {  Contains an hDC on Win32  }
  136.         profileLocation:        CMProfileLocation;
  137.         eventProc:                CalibrateEventUPP;                        {  Ignored on Win32  }
  138.         reserved:                UInt32;                                    {  Unused  }
  139.         flags:                    UInt32;                                    {  Unused  }
  140.         isGood:                    BOOLEAN;                                {  true or false  }
  141.         byteFiller:                SInt8;                                    {  Unused  }
  142.     END;
  143.  
  144. {$IFC TYPED_FUNCTION_POINTERS}
  145.     OldCanCalibrateProcPtr = FUNCTION(displayID: AVIDType): BOOLEAN;
  146. {$ELSEC}
  147.     OldCanCalibrateProcPtr = ProcPtr;
  148. {$ENDC}
  149.  
  150. {$IFC TYPED_FUNCTION_POINTERS}
  151.     OldCalibrateProcPtr = FUNCTION(VAR theInfo: OldCalibratorInfo): OSErr;
  152. {$ELSEC}
  153.     OldCalibrateProcPtr = ProcPtr;
  154. {$ENDC}
  155.  
  156.     OldCanCalibrateUPP = UniversalProcPtr;
  157.     OldCalibrateUPP = UniversalProcPtr;
  158.  
  159. CONST
  160.     uppOldCanCalibrateProcInfo = $000000D0;
  161.     uppOldCalibrateProcInfo = $000000E0;
  162.  
  163. FUNCTION NewOldCanCalibrateProc(userRoutine: OldCanCalibrateProcPtr): OldCanCalibrateUPP;
  164.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  165.     INLINE $2E9F;
  166.     {$ENDC}
  167.  
  168. FUNCTION NewOldCalibrateProc(userRoutine: OldCalibrateProcPtr): OldCalibrateUPP;
  169.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  170.     INLINE $2E9F;
  171.     {$ENDC}
  172.  
  173. FUNCTION CallOldCanCalibrateProc(displayID: AVIDType; userRoutine: OldCanCalibrateUPP): BOOLEAN;
  174.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  175.     INLINE $205F, $4E90;
  176.     {$ENDC}
  177.  
  178. FUNCTION CallOldCalibrateProc(VAR theInfo: OldCalibratorInfo; userRoutine: OldCalibrateUPP): OSErr;
  179.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  180.     INLINE $205F, $4E90;
  181.     {$ENDC}
  182. {$ENDC}  {OLDROUTINENAMES}
  183.  
  184. {$ALIGN RESET}
  185. {$POP}
  186.  
  187. {$SETC UsingIncludes := CMCalibratorIncludes}
  188.  
  189. {$ENDC} {__CMCALIBRATOR__}
  190.  
  191. {$IFC NOT UsingIncludes}
  192.  END.
  193. {$ENDC}
  194.